﻿Imports System.Data.SqlClient
Imports System.Configuration
Imports BEGestionProyecto
Public Class DLGPActividad

#Region "Consultar"

    Public Function fuDLListarActividad(ByVal psActDescActividad As String) As DataTable
        Try

            Dim lCnx As New SqlConnection(ConfigurationManager.ConnectionStrings("GPConnectionString").ConnectionString)
            Dim lCmd As New SqlCommand("paGPActividadLST", lCnx)
            lCmd.CommandType = CommandType.StoredProcedure
            lCmd.Parameters.Add("@actDescActividad", SqlDbType.VarChar).Value = psActDescActividad
            Dim lDa As New SqlDataAdapter
            lDa.SelectCommand = lCmd
            'Llenar el dataset
            Dim lDs As New DataSet
            lDa.Fill(lDs)
            'retornar datos
            Return lDs.Tables(0)
        Catch ex As Exception
            Throw New ArgumentException("Descripcion : " & ex.Message)
            Return Nothing
        End Try
    End Function

    'Funcion que carga la Lista de Categorias del Personal
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    Public Function fuDLBuscarActividadx(ByVal piActActividadID As Integer) As DataTable
        Try

            Dim lCnx As New SqlConnection(ConfigurationManager.ConnectionStrings("GPConnectionString").ConnectionString)
            Dim lCmd As New SqlCommand("paGPActividadBUSx", lCnx)
            lCmd.CommandType = CommandType.StoredProcedure
            lCmd.Parameters.Add("@actActividadID", SqlDbType.Int).Value = piactActividadID

            Dim lDa As New SqlDataAdapter
            lDa.SelectCommand = lCmd
            'Llenar Dataset
            Dim lDs As New DataSet
            lDa.Fill(lDs)
            'Retornar Datos
            Return lDs.Tables(0)
        Catch ex As Exception
            Throw New ArgumentException("Descripcion : " & ex.Message)
            Return Nothing
        End Try
    End Function
#End Region
#Region "Actualizar"
    'Funcion que carga la Lista de Categorias del Personal
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    Public Function fuDLInsertarActividad(ByVal pBE As BEGPActividad) As Boolean
        Try
            'Se crea una variable sqlconnection
            Dim lCnx As New SqlConnection(ConfigurationManager.ConnectionStrings("GPConnectionString").ConnectionString)
            'Se crea un sqlcommand
            Dim lCmd As New SqlCommand
            'Se crea la conexion para el command
            lCmd.Connection = lCnx
            'Se declara el typo de comando
            lCmd.CommandType = CommandType.StoredProcedure
            'Declaras el nombre del Store Procedure de Insertar Empleado
            lCmd.CommandText = "paGPActividadINS"
            'Definicion de Parametros para el procedure
            With lCmd.Parameters
                .Add(New SqlParameter("@actActividadID", SqlDbType.Int)).Value = pBE.ActActividadID
                .Add(New SqlParameter("@actDescActividad", SqlDbType.VarChar)).Value = pBE.ActDescActividad
                .Add(New SqlParameter("@actobsActividad", SqlDbType.VarChar)).Value = pBE.ActobsActividad
                .Add(New SqlParameter("@actcodTipo", SqlDbType.Int)).Value = pBE.ActcodTipo
                .Add(New SqlParameter("@actEstado", SqlDbType.Bit)).Value = pBE.ActEstado
                .Add(New SqlParameter("@actUserCreacionID", SqlDbType.VarChar)).Value = pBE.ActUserCreacionID
            End With
            'Se cargan los parametros que viene de las entidades guardadas temporalmente
            'lCmd.Parameters("@prycodProyecto").Value = pBE.prycodProyecto
            'lCmd.Parameters("@prycodLos").Value = pBE.prycodLos
            lCnx.Open()
            lCmd.ExecuteNonQuery()
            lCnx.Close()
            Return True
        Catch ex As Exception
            Throw New ArgumentException("Descripcion : " & ex.Message)
            Return False
        End Try
    End Function
    'Funcion que carga la Lista de Categorias del Personal
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    Public Function fuDLActualizarActividad(ByVal pBE As BEGPActividad) As Boolean
        Try
            'Se crea una variable sqlconnection
            Dim lCnx As New SqlConnection(ConfigurationManager.ConnectionStrings("GPConnectionString").ConnectionString)
            'Se crea un sqlcommand
            Dim lCmd As New SqlCommand
            'Se crea la conexion para el command
            lCmd.Connection = lCnx
            'Se declara el typo de comando
            lCmd.CommandType = CommandType.StoredProcedure
            'Declaras el nombre del Store Procedure de Insertar Empleado
            lCmd.CommandText = "paGPActividadUPD"
            'Definicion de Parametros para el procedure
            With lCmd.Parameters
                .Add(New SqlParameter("@actActividadID", SqlDbType.Int)).Value = pBE.ActActividadID
                .Add(New SqlParameter("@actDescActividad", SqlDbType.VarChar)).Value = pBE.ActDescActividad
                .Add(New SqlParameter("@actcodTipo", SqlDbType.Int)).Value = pBE.ActcodTipo
                .Add(New SqlParameter("@actEstado", SqlDbType.Bit)).Value = pBE.ActEstado
                .Add(New SqlParameter("@actobsActividad", SqlDbType.VarChar)).Value = pBE.ActobsActividad
                .Add(New SqlParameter("@actUserModificacionID", SqlDbType.Int)).Value = pBE.ActUserModificacionID
            End With

            lCnx.Open()
            lCmd.ExecuteNonQuery()
            lCnx.Close()
            Return True
        Catch ex As Exception
            Throw New ArgumentException("Descripcion : " & ex.Message)
            Return False
        End Try
    End Function

    'Funcion que carga la Lista de Categorias del Personal
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    Public Function fuDLEliminarActividad(ByVal piActActividadID As Integer, ByVal piActUserModificacionID As String) As Boolean
        Try
            'Se crea una variable sqlconnection
            Dim lCnx As New SqlConnection(ConfigurationManager.ConnectionStrings("GPConnectionString").ConnectionString)
            'Se crea un sqlcommand
            Dim lCmd As New SqlCommand
            'Se crea la conexion para el command
            lCmd.Connection = lCnx
            'Se declara el typo de comando
            lCmd.CommandType = CommandType.StoredProcedure
            'Declaras el nombre del Store Procedure de Insertar Empleado
            lCmd.CommandText = "paGPActividadDEL"
            'Definicion de Parametros para el procedure
            With lCmd.Parameters
                .Add(New SqlParameter("@actActividadID", SqlDbType.Int)).Value = piActActividadID
                .Add(New SqlParameter("@actUserModificacionID", SqlDbType.VarChar)).Value = piActUserModificacionID
            End With
            'Se cargan los parametros que viene de las entidades guardadas temporalmente

            lCnx.Open()
            lCmd.ExecuteNonQuery()
            lCnx.Close()
            Return True
        Catch ex As Exception
            Throw New ArgumentException("Descripcion : " & ex.Message)
            Return False
        End Try
    End Function
#End Region


End Class

